; Music of Smash TV (1991) (Ocean Software)
; Ripped by Megachur the 28/02/2008

	write "SMASHTV.BIN"

music_date_rip	equ &1c28
music_adr	equ &2000
music_end	equ l2001
first_theme	equ 1
last_theme	equ 2	; 1 -> 2

	read "music_header_v1_0.asm"

;org #2484
;db "SOUND IMAGES (c)1991"

.l2005 equ $ + 5
.l2004 equ $ + 4
.l2003 equ $ + 3
.l2002 equ $ + 2
.l2001 equ $ + 1
.l2000
	db #01,#00,#00,#00,#00,#0f
;
.play_music
;
	push af
	push bc
	push de
	push hl
	call l204d
	call l20c0
	ld a,(l2001)
	or a
	jr nz,l2025
	ld hl,l2632
	ld a,(hl)
	inc h
	or (hl)
	inc h
	or (hl)
	jr z,l2048
	ld a,#01
	ld (l211f),a
.l2025
	ld hl,l211f
	dec (hl)
	ld h,#26
	call l20fd
	inc h
	call l20fd
	inc h
	call l20fd
	call l22ab
	call l2214
	ld hl,l211f
	ld a,(hl)
	or a
	jr nz,l2045
.l2044 equ $ + 1
	ld (hl),#01
.l2045
	call l22bb
.l2048
	pop hl
	pop de
	pop bc
	pop af
	ret
.l204d
	ld a,(l2001)
	or a
	jr nz,l2059
	ld a,(l2000)
;
.init_music
;
	ld (l205a),a
.l205a equ $ + 1
.l2059
	ld a,#00
	or a
	ret z
	push af
	call l2302
	pop af
	cp #03
	ret nc
	ld (l2001),a
	dec a
	add a
	add a
	add a
	add #31
	ld e,a
	adc #29
	sub e
	ld d,a
	ld a,(de)
	inc de
	ld (l2044),a
	ld h,#26
	call l2091
	call l2091
	call l2091
	xor a
	ld (l2003),a
	inc a
	ld (l211f),a
	ld a,#10
	ld (l2005),a
	ret
.l2091
	ld l,#05
	ld (hl),#01
	dec l
	xor a
	ld (hl),a
	ld l,#07
	ld (hl),a
	ld l,#09
	ld (hl),a
	ld l,#15
	ld (hl),a
	ld l,#31
	ld (hl),a
	ld a,(de)
	inc de
	ld c,a
	ld a,(de)
	inc de
	ld b,a
	or c
	ret z
	ld l,#02
	ld a,(bc)
	ld (hl),a
	inc bc
	inc l
	ld a,(bc)
	ld (hl),a
	inc bc
	ld l,#00
	ld (hl),c
	inc l
	ld (hl),b
	ld l,#32
	ld (hl),#01
	inc h
	ret
.l20c0
	ld a,(l2002)
	or a
	ret z
	cp #01
	ret nc
	ld c,a
	ld hl,l2632
	ld a,(hl)
	or a
	jr z,l20d9
	inc h
	ld a,(hl)
	or a
	jr z,l20d9
	inc h
	ld a,(hl)
	or a
	ret nz
.l20d9
	inc (hl)
	ld (l2002),a
	ld l,#04
	ld (hl),a
	ld l,#15
	ld (hl),a
	ld a,c
	add a
	add #00
	ld c,a
	adc #2e
	sub c
	ld b,a
	ld a,(bc)
	ld l,#02
	ld (hl),a
	ld e,a
	inc l
	inc bc
	ld a,(bc)
	ld (hl),a
	ld d,a
	ld l,#16
	ld (hl),#01
	jp l2140
.l20fd
	ld l,#32
	ld a,(hl)
	or a
	ret z
	ld l,#04
	bit 7,(hl)
	jr z,l2119
.l2109 equ $ + 1
	ld a,#00
	dec a
	ld (l2109),a
	jr nz,l2119
	ld l,#20
	ld a,(l2693)
	or (hl)
	ld (l2693),a
.l2119
	ld l,#02
	ld e,(hl)
	inc l
	ld d,(hl)
.l211f equ $ + 1
	ld a,#01
	or a
	jr nz,l212e
	ld l,#05
	dec (hl)
	jr z,l2140
	call l269b
	call l2914
.l212e
	call l286e
	call l283a
	call l2833
	call l222b
	call l26a6
	jp l27e2
.l2140
	ld a,(de)
	inc de
	or a
	jp m,l2184
.l2146
	ld l,#0c
	ld (hl),a
	ld l,#02
	ld (hl),e
	inc l
	ld (hl),d
	call l26c1
	ld l,#14
	ld a,(hl)
	ld l,#0b
	ld (hl),a
	ld l,#0d
	ld a,(hl)
	ld l,#05
	ld (hl),a
	ld l,#18
	ld (hl),#00
	ld l,#2e
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#2c
	ld a,(hl)
	dec l
	ld (hl),a
	call l233d
	ld l,#0e
	call l2174
	inc l
.l2174
	ld a,(hl)
	ld c,a
	and #0f
	inc l
	ld (hl),a
	ld a,c
	rra
	rra
	rra
	rra
	and #0f
	inc l
	ld (hl),a
	ret
.l2184
	cp #e0
	jr nc,l21ac
	cp #d0
	jr nc,l21bc
	cp #c0
	jr nc,l21b4
	cp #b0
	jr nc,l21e3
	ld c,h
	add a
	add #33
	ld l,a
	adc #27
	sub l
	ld h,a
	ld a,c
	ld c,(hl)
	inc hl
	ld b,(hl)
	ld h,a
	ld (l21a7),bc
.l21a7 equ $ + 1
	call #0000
	jp l2140
.l21ac
	sub #df
	ld l,#0d
	ld (hl),a
	jp l2140
.l21b4
	sub #c0
	ld l,#14
	ld (hl),a
	jp l2140
.l21bc
	sub #d0
	ld l,#14
	ld (hl),a
	ex de,hl
	ld e,#0e
	ldi
	ld e,#11
	ldi
	ex de,hl
	ld a,(de)
	rra
	rra
	rra
	rra
	and #0f
	ld l,#19
	ld (hl),a
	inc l
	ld (hl),a
	ld a,(de)
	and #0f
	ld l,#1b
	ld (hl),a
	inc l
	ld (hl),a
	inc de
	jp l2140
.l21e3
	sub #b0
	add a
	add #3c
	ld c,a
	adc #24
	sub c
	ld b,a
	ld a,(bc)
	ld l,#21
	ld (hl),a
	inc l
	inc bc
	ld a,(bc)
	ld (hl),a
	inc l
	ld (hl),#00
	ld l,#04
	set 0,(hl)
	jp l2140
.l21ff
	pop af
	call l2692
	ld a,(l2693)
	or c
	ld (l2693),a
	ld l,#32
	ld (hl),#00
	ret
.l220f
	ld l,#04
	res 0,(hl)
	ret
.l2214
	ld hl,l2228
	dec (hl)
	ret p
	xor a
	ld (hl),a
	inc hl
	cp (hl)
	ret z
	dec (hl)
	inc hl
	ld a,(l2331)
	add (hl)
	ld (l2331),a
	ret
.l2228
	nop
.l2229
	nop
.l222a
	nop
.l222c equ $ + 1
.l222b
	ld a,#55
	rrca
	ld (l222c),a
	ret c
	dec de
	ld a,(de)
	inc de
	cp #8e
	jr z,l2243
	ld l,#0d
	ld a,(hl)
	ld l,#2a
	sub (hl)
	ld l,#05
	cp (hl)
	ret c
.l2243
	ld l,#04
	bit 3,(hl)
	ret z
	ld l,#30
	ld a,(hl)
	or a
	jr z,l2259
	dec l
	dec (hl)
	jr nz,l2259
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#2b
	inc (hl)
.l2259
	ld l,#04
	bit 6,(hl)
	jr z,l2279
	ld l,#2d
	dec (hl)
	jr nz,l226d
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#04
	res 6,(hl)
	ret
.l226d
	ld l,#2b
	ld a,(hl)
	ld l,#07
	add (hl)
	ld (hl),a
	ret nc
	ld l,#09
	inc (hl)
	ret
.l2279
	ld l,#2d
	dec (hl)
	jr nz,l2287
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#04
	set 6,(hl)
	ret
.l2287
	ld l,#07
	ld a,(hl)
	ld l,#2b
	sub (hl)
	ld l,#07
	ld (hl),a
	ret nc
	ld l,#09
	dec (hl)
	ret
.l2295
	ld l,#04
	res 5,(hl)
	ret
.l229a
	ld a,#35
	ld (l2003),a
	ld (l2004),a
	ret
.l22a3
	ld a,(de)
	ld l,#31
	ld (hl),a
	inc de
	ret
.l22a9
	inc (hl)
	ret
.l22ab
	ld hl,l2003
	ld a,(hl)
	or a
	ret z
	inc hl
	dec (hl)
	ret nz
	ld (hl),a
	inc hl
	dec (hl)
	ret p
	inc (hl)
	jr l2302
.l22bb
	call l2323
	ld h,#26
	call l22c9
	inc h
	call l22c9
	ld h,#28
.l22c9
	ld l,#06
	call l22e5
	call l22e5
	ld a,(l2005)
	add a
	ret z
	ld b,(hl)
	inc l
	add a
	add a
	add a
	add (hl)
	push hl
	ld l,a
	ld h,#25
	ld a,b
	ld c,(hl)
	pop hl
	jr l22e9
.l22e5
	ld a,(hl)
	inc l
	ld c,(hl)
	inc l
.l22e9
	ld b,d
	out (c),a
.l22ed equ $ + 1
	ld a,#c0
	ld b,e
	out (c),a
	and #3f
	out (c),a
	ld b,d
	out (c),c
	ld b,e
	ld c,a
	or #80
	out (c),a
	out (c),c
	ret
.l2301
	pop af
.l2302
	xor a
	ld (l2001),a
	ld (l205a),a
	ld (l2000),a
	ld (l2632),a
	ld (l2732),a
	ld (l2832),a
	ld (l2631),a
	ld (l2731),a
	ld (l2831),a
	ld a,#3f
	ld (l2693),a
.l2323
	ld de,#f4f6
	ld b,e
	in a,(c)
	or #c0
	ld (l22ed),a
	ld a,#06
.l2331 equ $ + 1
	ld c,#01
	call l22e9
	ld a,(l2693)
	ld c,a
	ld a,#07
	jr l22e9
.l233d
	ld l,#04
	bit 7,(hl)
	ret z
.l2343 equ $ + 1
	ld a,#00
	ld (l2331),a
	xor a
	ld (l2228),a
	ld (l2229),a
	ld (l222a),a
	ld a,#01
	ld (l2109),a
	ld l,#20
	ld a,(hl)
	cpl
	ld c,a
	ld a,(l2693)
	and c
	ld (l2693),a
	ret
.l2363
	ld l,#15
	ld (hl),#01
	ret
.l2368
	ld l,#15
	ld (hl),#ff
	ret
.l236d
	ld l,#04
	set 7,(hl)
	ret
.l2372
	ld a,(de)
	inc de
	ld (l2343),a
	ret
.l2378
	ex de,hl
	ld e,#27
	ldi
	ldi
	ld e,#24
	ldi
	ldi
	ld e,#29
	ldi
	ex de,hl
	ld l,#04
	set 2,(hl)
	ret
.l238f
	ld l,#04
	res 2,(hl)
	ret
	dw #077c,#0710,#06ab,#064b
	dw #05f1,#059b,#054b,#04ff
	dw #04b7,#0473,#0433,#03f7
	dw #03be,#0388,#0355,#0326
	dw #02f8,#02ce,#02a5,#027f
	dw #025c,#023a,#021a,#01fb
	dw #01df,#01c4,#01ab,#0193
	dw #017c,#0167,#0153,#0140
	dw #012e,#011d,#010d,#00fe
	dw #00f0,#00e2,#00d5,#00c9
	dw #00be,#00b3,#00a9,#00a0
	dw #0097,#008e,#0086,#007f
	dw #0078,#0071,#006b,#0065
	dw #005f,#005a,#0055,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0039,#0035,#0032
	dw #0030,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
	dw l2450,l245a,l2460,l2466
	dw l2468,l246a,l2470,l2474
	dw l2476,l247c
.l2450
	db #00,#0c,#01,#0d,#02,#0e,#01,#0d
.l245a equ $ + 2
	db #00,#8c,#0c,#0f,#14,#00,#0f,#88
.l2466 equ $ + 6
.l2460
	db #0c,#10,#13,#00,#04,#87,#00,#84
.l246a equ $ + 2
.l2468
	db #00,#87,#0c,#0f,#13,#00,#03,#87
.l2476 equ $ + 6
.l2474 equ $ + 4
.l2470
	db #00,#00,#04,#84,#00,#85,#10,#13
.l247c equ $ + 4
	db #18,#04,#07,#8c,#0c,#10,#1f,#1a
	db #00,#04,#13,#8e
	db #53,#4f,#55,#4e,#44,#20,#49,#4d
	db #41,#47,#45,#53,#20,#28,#63,#29
	db #31,#39,#39,#31,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#01
	db #02,#03,#04,#05,#06,#07,#08,#09
	db #0a,#0b,#0c,#0d,#0e,#0f,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#01,#01
	db #01,#01,#01,#01,#01,#01,#00,#00
	db #00,#00,#00,#00,#01,#01,#01,#01
	db #01,#02,#02,#02,#02,#02,#00,#00
	db #00,#00,#01,#01,#01,#01,#02,#02
	db #02,#02,#03,#03,#03,#03,#00,#00
	db #00,#00,#01,#01,#01,#02,#02,#02
	db #03,#03,#03,#04,#04,#04,#00,#00
	db #00,#01,#01,#01,#02,#02,#03,#03
	db #03,#04,#04,#04,#05,#05,#00,#00
	db #00,#01,#01,#02,#02,#03,#03,#03
	db #04,#04,#05,#05,#06,#06,#00,#00
	db #01,#01,#02,#02,#03,#03,#04,#04
	db #05,#05,#06,#06,#07,#07,#00,#00
	db #01,#01,#02,#02,#03,#03,#04,#05
	db #05,#06,#06,#07,#07,#08,#00,#00
	db #01,#01,#02,#03,#03,#04,#05,#05
	db #06,#06,#07,#08,#08,#09,#00,#00
	db #01,#02,#02,#03,#04,#04,#05,#06
	db #06,#07,#08,#08,#09,#0a,#00,#00
	db #01,#02,#03,#03,#04,#05,#06,#06
	db #07,#08,#09,#09,#0a,#0b,#00,#00
	db #01,#02,#03,#04,#04,#05,#06,#07
	db #08,#08,#09,#0a,#0b,#0c,#00,#00
	db #01,#02,#03,#04,#05,#06,#07,#07
	db #08,#09,#0a,#0b,#0c,#0d,#00,#00
	db #01,#02,#03,#04,#05,#06,#07,#08
	db #09,#0a,#0b,#0c,#0d,#0e,#00,#00
	db #00,#00,#00,#00,#00,#00,#01,#00
	db #08,#0f,#00,#04,#00,#00,#00,#00
	db #00,#00,#0f,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#01,#08,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l2631 equ $ + 7
	db #00,#00,#00,#00,#00,#00,#00,#00
.l2632
	db #00
.l2633
	call l2692
	ld l,#1f
.l2638
	ld a,(hl)
.l2639
	cpl
	and c
	ld (l2693),a
	ld l,#04
	res 4,(hl)
	res 0,(hl)
	ret
.l2645
	call l265c
	call l2692
	ld l,#20
	jr l2638
.l264f
	call l265c
.l2652
	call l2692
	ld l,#1f
	ld a,(hl)
	inc l
	or (hl)
	jr l2639
.l265c
	ld a,(de)
	inc de
	ld (l2331),a
	ld a,(de)
	inc de
	ld (l222a),a
	ld a,(de)
	inc de
	ld (l2228),a
	ld a,(de)
	inc de
	ld (l2229),a
	ret
.l2671
	call l2692
	ld l,#20
	ld a,(hl)
	cpl
	and c
	ld (l2693),a
	ld l,#04
	set 4,(hl)
	ret
.l2681
	ld l,#0b
	ld (hl),#00
.l2685
	pop af
	ld l,#0d
	ld a,(hl)
	ld l,#05
	ld (hl),a
	ld l,#02
	ld (hl),e
	inc l
	ld (hl),d
	ret
.l2693 equ $ + 1
.l2692
	ld a,#3f
	ld l,#1f
	or (hl)
	inc l
	or (hl)
	ld c,a
	ret
.l269b
	ld l,#15
	ld a,(hl)
	or a
	ret z
	ld l,#0c
	add (hl)
	ld (hl),a
	jr l26c1
.l26a6
	ld l,#04
	bit 0,(hl)
	ret z
	ld l,#21
	ld a,(hl)
	inc l
	ld b,(hl)
	inc l
	add (hl)
	ld c,a
	jr nc,l26b6
	inc b
.l26b6
	inc (hl)
	ld a,(bc)
	or a
	jp p,l26be
	ld (hl),#00
.l26be
	ld l,#0c
	add (hl)
.l26c1
	ld l,#31
	add (hl)
	add a
	add #94
	ld c,a
	adc #23
	sub c
	ld b,a
	ld a,(bc)
	inc bc
	ld l,#07
	ld (hl),a
	ld a,(bc)
	ld l,#09
	ld (hl),a
	ld l,#04
	bit 2,(hl)
	jr z,l26f5
	push de
	ld l,#27
	ld e,(hl)
	inc l
	ld d,(hl)
	ld l,#07
	ld c,(hl)
	ld l,#09
	ld b,(hl)
	ex de,hl
	add hl,bc
	ex de,hl
	ld (hl),d
	ld l,#07
	ld (hl),e
	pop de
	ld l,#29
	ld a,(hl)
	ld l,#26
	ld (hl),a
.l26f5
	ld l,#04
	bit 5,(hl)
	ret z
	res 1,(hl)
	ret
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#02,#00,#03,#00,#09,#0f,#00
	db #04,#00,#00,#00,#00,#00,#00,#0f
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#02,#10,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l2732 equ $ + 5
.l2731 equ $ + 4
	db #00,#00,#00,#00,#00,#00
	dw l27bc,l2363,l2368,l2786
	dw l220f,l27a5,l2378,l238f
	dw l276b,l27f5,l2633,l2645
	dw l264f,l2671,l2685,l2681
	dw l22a3,l2301,l28c1,l28ef
	dw l27b4,l21ff,l2295,l229a
	dw l236d,l27fa,l279f,l2372
.l276b
	ex de,hl
	ld e,#2a
	ldi
	ld a,(hl)
	ldi
	ld (de),a
	inc e
	ld a,(hl)
	ldi
	ld (de),a
	inc e
	ld a,(hl)
	ldi
	ld (de),a
	ex de,hl
	ld l,#04
	set 3,(hl)
	set 6,(hl)
	ret
.l2786
	ld a,(de)
	inc de
	ld l,#16
	ld (hl),a
	ld a,(de)
	rra
	rra
	rra
	rra
	and #0f
	ld l,#1d
	ld (hl),a
	inc l
	ld (hl),a
	ld a,(de)
	and #0f
	ld l,#17
	ld (hl),a
	inc de
	ret
.l279f
	ld l,#04
	set 5,(hl)
	jr l27a9
.l27a5
	ld l,#04
	set 1,(hl)
.l27a9
	ex de,hl
	ld e,#24
	ldi
	ldi
	ldi
	ex de,hl
	ret
.l27b4
	ld l,#00
	ex de,hl
	ldi
	ldi
	ex de,hl
.l27bc
	ld a,(l2000)
	ld (l205a),a
	ld l,#00
	ld c,(hl)
	inc l
	ld b,(hl)
	ld a,(bc)
	ld e,a
	inc bc
	ld a,(bc)
	inc bc
	ld d,a
	or e
	jr z,l27d9
	ld (hl),b
	dec l
	ld (hl),c
	inc l
	inc l
	ld (hl),e
	inc l
	ld (hl),d
	ret
.l27d9
	ld d,b
	ld e,c
	pop bc
	ld a,(l2dfb)
	jp l2184
.l27e2
	ld l,#04
	bit 4,(hl)
	ret z
	ld l,#1f
	ld a,(hl)
	inc l
	or (hl)
	ld c,a
	ld a,(l2693)
	xor c
	ld (l2693),a
	ret
.l27f5
	ld l,#04
	res 3,(hl)
	ret
.l27fa
	ld l,#04
	res 7,(hl)
	ret
	db #00,#00,#00,#00,#00,#00,#00,#04
	db #00,#05,#00,#0a,#0f,#00,#04,#00
	db #00,#00,#00,#00,#00,#0f,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #04,#20,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l2832 equ $ + 3
.l2831 equ $ + 2
	db #00,#00,#00,#00
.l2833
	ld l,#04
	bit 2,(hl)
	jr nz,l283f
	ret
.l283a
	ld l,#04
	bit 1,(hl)
	ret z
.l283f
	ld l,#26
	dec (hl)
	jp m,l22a9
	ld l,#25
	bit 7,(hl)
	jr nz,l285a
	ld l,#24
	ld a,(hl)
	ld l,#07
	add (hl)
	ld (hl),a
	ld l,#25
	ld a,(hl)
	ld l,#09
	adc (hl)
	ld (hl),a
	ret
.l285a
	ld l,#07
	ld a,(hl)
	ld l,#24
	sub (hl)
	ld l,#07
	ld (hl),a
	ld l,#25
	ld c,(hl)
	res 7,c
	ld l,#09
	ld a,(hl)
	sbc c
	ld (hl),a
	ret
.l286e
	ld l,#0f
	ld a,(hl)
	or a
	jr z,l2889
	ld l,#19
	dec (hl)
	ret nz
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#0f
	dec (hl)
	inc l
	ld a,(hl)
	ld l,#0b
	add (hl)
	cp #0f
	ret nc
	ld (hl),a
	ret
.l2889
	ld l,#12
	ld a,(hl)
	or a
	jr z,l28a7
	ld l,#1b
	dec (hl)
	ret nz
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#12
	dec (hl)
	ld l,#0b
	ld a,(hl)
	ld l,#13
	sub (hl)
	jr nc,l28a3
	xor a
.l28a3
	ld l,#0b
	ld (hl),a
	ret
.l28a7
	ld l,#18
	ld a,(hl)
	or a
	ret z
	ld l,#1d
	dec (hl)
	ret nz
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#0b
	ld a,(hl)
	ld l,#17
	sub (hl)
	jr nc,l28bd
	xor a
.l28bd
	ld l,#0b
	ld (hl),a
	ret
.l28c1
	pop af
	call l2652
	ld a,#1f
	ld (l2331),a
	xor a
	ld (l2228),a
	ld a,#e1
	ld (l222a),a
	ld a,#03
	ld (l2229),a
	ld l,#21
	ld (hl),#50
	inc l
	ld (hl),#24
	ld l,#04
	set 0,(hl)
	set 1,(hl)
	res 7,(hl)
	ld a,#18
	ld l,#31
	sub (hl)
	jp l2146
.l28ef
	pop af
	call l2633
	ld l,#24
	ld (hl),#70
	inc l
	ld (hl),#00
	inc l
	ld (hl),#0c
	ld l,#04
	set 1,(hl)
	ld l,#21
	ld (hl),#50
	inc l
	ld (hl),#24
	ld l,#04
	set 0,(hl)
	ld a,#05
	ld l,#31
	sub (hl)
	jp l2146
.l2914
	ld l,#16
	ld a,(hl)
	ld l,#05
	cp (hl)
	ret nz
	ld a,(de)
	cp #8e
	ret z
	ld l,#18
	ld (hl),#01
	ld l,#15
	ld (hl),#00
	ld l,#04
	res 1,(hl)
	bit 5,(hl)
	ret z
	set 1,(hl)
	ret
	db #02
	dw l2940,l295e,l297a
	db #03
	db #03
	dw l2d62,l2d6a,l2d72
.l2942 equ $ + 2
.l2940
	dw l29a0,l29d4,l29d4
	dw l29f2,l29f2,l2a18,l2ac9
	dw l2a6a,l2afd,l2b35,l2b35
	dw l2b35,l2b35,#0000,l2942
.l2960 equ $ + 2
.l295e
	dw l2b84,l2bb9,l2c23,l2c23
	dw l2c23,l2c23,l2c23,l2c23
	dw l2c23,l2c23,l2c67,l2c67
.l297c equ $ + 6
.l297a equ $ + 4
	dw #0000,l2960,l2c83,l2caa
	dw l2cd5,l2cd5,l2cd5,l2cd5
	dw l2cd5,l2cd5,l2cd5,l2d0f
	dw l2cd5,l2d40,l2d40,l2d40
	dw l2d40,l2d40,l2d40,#0000
	dw l297c
.l29a0
	db #da,#00,#1f,#12,#8a,#83,#01,#11
	db #88,#00,#01,#02,#00,#90,#f4,#e3
	db #3b,#42,#8e,#3b,#42,#8e,#8e,#3b
	db #40,#8e,#3b,#36,#8e,#45,#8e,#47
	db #3b,#42,#8e,#3b,#42,#8e,#8e,#3b
	db #cd,#90,#00,#13,#13,#14,#14,#15
.l29d4 equ $ + 4
	db #15,#16,#16,#80,#dc,#30,#26,#12
	db #8a,#90,#00,#88,#00,#00,#00,#00
	db #e3,#23,#2a,#28,#2a,#2d,#2a,#28
	db #2a,#23,#2a,#28,#2a,#2d,#2a,#28
.l29f2 equ $ + 2
	db #2a,#80,#dc,#30,#26,#12,#e3,#23
	db #2a,#28,#2a,#2d,#2a,#28,#2a,#1c
	db #2f,#2d,#2f,#32,#2f,#2d,#2f,#23
	db #2a,#28,#2a,#2d,#2a,#28,#2a,#1c
	db #2f,#2d,#2f,#32,#2f,#2d,#2f,#80
.l2a18
	db #dc,#11,#11,#12,#8a,#83,#00,#00
	db #88,#00,#01,#02,#00,#e0,#2a,#2d
	db #e1,#2f,#e3,#2d,#2a,#2f,#31,#e7
	db #34,#f1,#32,#8e,#e3,#34,#32,#31
	db #2f,#2d,#2f,#31,#36,#8e,#e1,#34
	db #32,#f7,#31,#e3,#32,#31,#2f,#f3
	db #36,#e3,#32,#31,#2d,#f3,#39,#e3
	db #34,#32,#31,#31,#8e,#32,#34,#36
	db #e1,#36,#34,#32,#31,#34,#32,#31
	db #2f,#32,#31,#2f,#31,#32,#34,#36
.l2a6a equ $ + 2
	db #39,#80,#dc,#11,#11,#12,#8a,#83
	db #00,#00,#88,#00,#01,#02,#00,#e0
	db #2a,#2d,#e1,#2f,#e3,#2d,#2a,#2f
	db #36,#34,#e1,#2f,#e0,#2f,#31,#f1
	db #32,#8e,#e3,#34,#32,#31,#2f,#2d
	db #2f,#31,#f1,#36,#e0,#32,#34,#ef
	db #39,#88,#00,#01,#01,#00,#e3,#32
	db #31,#2f,#34,#32,#31,#2f,#36,#32
	db #31,#2f,#39,#32,#31,#39,#3b,#34
	db #32,#31,#31,#8e,#32,#34,#36,#e1
	db #36,#34,#32,#31,#34,#32,#31,#2f
	db #32,#31,#2f,#31,#32,#34,#36,#39
.l2ac9 equ $ + 1
	db #80,#dc,#11,#11,#12,#8a,#83,#01
	db #11,#e7,#3b,#dc,#11,#1f,#13,#f7
	db #82,#3b,#d8,#30,#26,#12,#e3,#1c
	db #2f,#c9,#2d,#2f,#ca,#32,#2f,#cb
	db #2d,#2f,#cc,#23,#2a,#cd,#28,#2a
	db #2d,#2a,#28,#2a,#1c,#2f,#2d,#2f
.l2afd equ $ + 5
	db #32,#2f,#2d,#2f,#80,#dd,#11,#11
	db #12,#8a,#83,#01,#11,#e7,#3b,#dd
	db #11,#1f,#13,#f7,#82,#3b,#d8,#30
	db #26,#12,#e3,#1c,#2f,#c9,#2d,#2f
	db #ca,#32,#2f,#cb,#2d,#2f,#23,#2a
	db #28,#2a,#2d,#2a,#28,#2a,#1c,#2f
	db #2d,#2f,#df,#00,#1f,#12,#8a,#e5
.l2b35 equ $ + 5
	db #15,#15,#e3,#16,#80,#db,#11,#11
	db #12,#8a,#83,#00,#00,#88,#00,#01
	db #01,#00,#e1,#36,#32,#2f,#36,#32
	db #2f,#36,#32,#2f,#36,#32,#2f,#36
	db #32,#2f,#8e,#39,#32,#2f,#39,#32
	db #2f,#39,#32,#2f,#39,#32,#2f,#39
	db #32,#2f,#8e,#36,#32,#2f,#36,#32
	db #2f,#36,#32,#2f,#36,#32,#2f,#36
	db #32,#2f,#8e,#34,#32,#2d,#34,#32
	db #2d,#34,#32,#2d,#34,#32,#2d,#34
.l2b84 equ $ + 4
	db #32,#2d,#8e,#80,#dd,#00,#1f,#14
	db #8a,#83,#01,#11,#e3,#b5,#23,#23
	db #f3,#8f,#f1,#b1,#23,#8e,#e3,#b5
	db #23,#23,#f3,#8f,#b1,#e3,#23,#db
	db #00,#1f,#11,#e1,#92,#92,#92,#92
	db #cc,#92,#92,#92,#92,#cd,#92,#92
	db #92,#92,#ce,#92,#92,#cf,#92,#92
.l2bb9 equ $ + 1
	db #80,#df,#00,#35,#11,#8a,#e3,#93
	db #93,#df,#00,#1f,#12,#e7,#92,#df
	db #00,#35,#11,#8a,#93,#df,#00,#1f
	db #12,#92,#df,#00,#35,#11,#8a,#e3
	db #93,#93,#df,#00,#1f,#12,#e7,#92
	db #df,#00,#35,#11,#8a,#93,#df,#00
	db #1f,#12,#92,#df,#00,#35,#11,#8a
	db #e3,#93,#93,#df,#00,#1f,#12,#e7
	db #92,#df,#00,#35,#11,#8a,#93,#df
	db #00,#1f,#12,#92,#df,#00,#35,#11
	db #8a,#e3,#93,#93,#df,#00,#1f,#12
	db #e7,#92,#df,#00,#35,#11,#8a,#e5
	db #93,#df,#00,#1f,#12,#e1,#92,#e3
.l2c23 equ $ + 3
	db #92,#92,#80,#dc,#00,#11,#11,#8a
	db #83,#01,#11,#e7,#b7,#36,#dc,#00
	db #1f,#13,#f7,#82,#36,#dc,#00,#11
	db #11,#e7,#39,#dc,#00,#1f,#13,#f7
	db #82,#39,#dc,#00,#11,#11,#e7,#36
	db #dc,#00,#1f,#13,#f7,#82,#36,#dc
	db #00,#11,#11,#e7,#b4,#39,#dc,#00
	db #1f,#13,#ef,#82,#39,#dc,#00,#11
.l2c67 equ $ + 7
	db #11,#e3,#b7,#39,#b6,#39,#80,#db
	db #12,#11,#11,#8a,#88,#08,#01,#02
	db #00,#90,#0c,#ff,#26,#25,#26,#1e
	db #26,#f7,#25,#e7,#2a,#ff,#23,#8e
.l2c83 equ $ + 3
	db #90,#00,#80,#df,#50,#1f,#13,#8a
	db #83,#01,#11,#98,#e7,#0b,#0b,#0b
	db #e3,#0b,#13,#8e,#8e,#e7,#07,#07
	db #07,#e7,#0b,#0b,#0b,#e3,#0b,#17
	db #e3,#07,#07,#08,#08,#09,#09,#0a
.l2caa equ $ + 2
	db #0a,#80,#df,#00,#1f,#12,#8a,#83
	db #01,#00,#98,#e3,#0b,#0b,#17,#0b
	db #0b,#17,#17,#15,#0b,#0b,#17,#0b
	db #0b,#17,#17,#15,#0b,#0b,#17,#0b
	db #0b,#17,#17,#15,#0b,#0b,#17,#0b
.l2cd5 equ $ + 5
	db #0b,#17,#17,#15,#80,#df,#00,#1f
	db #12,#8a,#83,#01,#11,#e3,#0b,#0b
	db #92,#8a,#98,#0b,#0b,#17,#92,#8a
	db #98,#15,#09,#09,#92,#8a,#98,#09
	db #09,#15,#92,#8a,#98,#16,#0b,#0b
	db #92,#8a,#98,#0b,#0b,#17,#92,#8a
	db #98,#15,#09,#09,#92,#8a,#98,#09
.l2d0f equ $ + 7
	db #09,#15,#92,#8a,#98,#16,#80,#e3
	db #0b,#0b,#92,#8a,#98,#0b,#0b,#17
	db #92,#8a,#98,#15,#09,#09,#92,#8a
	db #98,#09,#09,#15,#92,#8a,#98,#16
	db #0b,#0b,#92,#8a,#98,#0b,#0b,#17
	db #92,#8a,#98,#15,#09,#09,#92,#8a
	db #98,#09,#e5,#92,#92,#e3,#92,#80
.l2d40
	db #e3,#92,#8a,#98,#0b,#92,#8a,#98
	db #0b,#92,#8a,#98,#17,#92,#8a,#98
	db #15,#92,#8a,#98,#09,#92,#8a,#98
	db #09,#92,#8a,#98,#15,#92,#8a,#98
.l2d62 equ $ + 2
	db #16,#80,#7a,#2d,#7a,#2d,#00,#00
.l2d6a equ $ + 2
	db #62,#2d,#b3,#2d,#b3,#2d,#00,#00
.l2d72 equ $ + 2
	db #6a,#2d,#d4,#2d,#d4,#2d,#00,#00
	db #72,#2d,#df,#20,#1f,#14,#8a,#83
	db #01,#11,#e5,#0b,#e3,#0d,#e1,#0b
	db #e5,#0e,#e3,#0d,#e1,#0b,#14,#15
	db #17,#10,#8e,#0e,#12,#10,#0e,#10
	db #8e,#0e,#e5,#0b,#e3,#0d,#e1,#0b
	db #e5,#0e,#e3,#0d,#e1,#0b,#e3,#0b
	db #e1,#0b,#e3,#09,#e7,#0b,#e1,#10
	db #0e,#0d,#80,#d7,#14,#1f,#16,#8a
	db #83,#01,#11,#ef,#b2,#26,#e3,#26
	db #e1,#8f,#b8,#f3,#23,#e3,#23,#e1
	db #8f,#ef,#b2,#26,#e3,#26,#e1,#8f
	db #f9,#b8,#23,#80,#df,#40,#1f,#11
	db #8a,#83,#01,#11,#eb,#8f,#e3,#92
	db #e7,#cc,#92,#cf,#eb,#8f,#92,#eb
	db #8f,#e3,#92,#e7,#cc,#92,#cf,#eb
	db #8f,#92,#80,#fc,#2d,#00,#00,#f3
.l2dfb equ $ + 3
	db #2d,#97,#80,#94,#ff,#8f,#8f,#8f
	db #8f,#80,#6a,#90,#1a,#16,#dc,#50
	db #89,#4a,#94,#3e,#25,#1d,#15,#85
	db #42,#12,#6c,#ce,#e3,#0d,#4a,#c0
	db #86,#c1,#55,#7f,#e5,#cc,#57,#cf
	db #bc,#31,#d2,#a0,#0e,#45,#41,#15
	db #67,#d2,#5d,#73,#46,#a2,#2b,#32
	db #36,#dc,#a4,#fc,#a2,#10,#0d,#a7
	db #cf,#58,#54,#24,#77,#bb,#e5,#ea
	db #c1,#47,#09,#60,#83,#13,#27,#6a
	db #67,#5b,#8d,#89,#70,#0e,#44,#3a
	db #5d,#93,#4b,#0e,#c8,#a2,#9e,#8d
	db #0e,#ac,#e8,#79,#0f,#ac,#8c,#1a
	db #33,#da,#b7,#ec,#8a,#42,#e0,#a3
	db #04,#b0,#10,#a7,#7a,#36,#e4,#40
	db #74,#6d,#17,#27,#cc,#4c,#b2,#03
	db #3b,#b0,#87,#cb,#79,#00,#4e,#86
	db #ed,#75,#eb,#44,#5b,#6e,#13,#f5
	db #f9,#13,#00,#16,#f6,#94,#c8,#c7
	db #14,#31,#df,#fb,#3b,#28,#4e,#2a
	db #a0,#83,#c8,#ae,#db,#06,#9d,#d4
	db #01,#06,#3b,#56,#3d,#8f,#65,#29
	db #4c,#9b,#8a,#ea,#2a,#80,#01,#2c
	db #72,#23,#61,#48,#d1,#c1,#2b,#2b
	db #0e,#99,#b0,#82,#43,#18,#b7,#a3
	db #e2,#ec,#90,#a1,#37,#86,#d1,#80
	db #73,#46,#29,#20,#31,#4f,#02,#50
	db #a3,#43,#12,#40,#bc,#2a,#0f,#27
	db #d2,#f3,#58,#ca,#24,#d8,#72,#69
	db #f8,#7c,#6c,#d4,#27,#c3,#b2,#c2
	db #e4,#56,#93,#79,#16,#32,#65,#df
	db #d8,#c9,#e4,#0b,#72,#1d,#40,#32
	db #3b,#12,#d7,#ae,#38,#50,#95,#fb
	db #4d,#d4,#91,#bf,#ef,#a7,#67,#43
	db #aa,#a8,#da,#60,#77,#0e,#04,#38
	db #d9,#85,#48,#47,#b9,#55,#90,#19
	db #e5,#b6,#f1,#94,#9a,#30,#ca,#72
	db #91,#b8,#42,#a1,#23,#3e,#7f,#bf
	db #60,#8c,#dd,#e3,#22,#65,#b4,#b5
	db #7d,#06,#b6,#74,#0e,#13,#ba,#28
	db #83,#a9,#9d,#4b,#52,#08,#b7,#cb
	db #fb,#28,#41,#54,#c1,#c4,#2e,#d5
	db #08,#d9,#b2,#f3,#3d,#df,#20,#53
	db #02,#09,#f4,#3b,#41,#58,#3e,#b4
	db #22,#a0,#f7,#d8,#65,#8b,#91,#ce
	db #3a,#6d,#40,#3a,#dd,#45,#55,#65
	db #e4,#d0,#4a,#85,#65,#02,#09,#83
	db #d2,#d1,#cb,#28,#06,#bc,#f1,#86
	db #a0,#c5,#37,#d8,#f0,#83,#45,#5a
	db #aa,#09,#57,#f9,#cc,#57,#44,#69
	db #bc,#c1,#44,#c0,#3b,#61,#10,#b4
	db #3c,#38,#c8,#1b,#d8,#ae,#68,#55
	db #ed,#b4,#43,#83,#6b,#40,#33,#33
	db #69,#45,#73,#f4,#15,#d0,#38,#f3
	db #a0,#61,#a9,#db,#0c,#c3,#db,#07
	db #03,#d0,#96,#cb,#c7,#80,#e1,#3c
	db #00,#a9,#0f,#f6,#a6,#06,#de,#8a
	db #f9,#77,#e7,#df,#9d,#7f,#41,#fe
	db #ef,#9c,#80,#83,#2e,#20,#a9,#71
	db #20,#b5,#6b,#1b,#61,#87,#eb,#ae
	db #5d,#6b,#b5,#bb,#fd,#68,#92,#f3
	db #73,#bb,#7c,#9e,#74,#05,#d4,#30
	db #ec,#00,#fe,#7b,#aa,#8b,#30,#46
	db #8e,#55,#3b,#1e,#e1,#ef,#3a,#de
	db #a6,#44,#91,#02,#4a,#9f,#e9,#93
	db #7d,#52,#4f,#2a,#04,#f5,#c9,#81
	db #c4,#80,#c3,#50,#32,#50,#85,#e2
	db #86,#01,#63,#7b,#f8,#0c,#f6,#0a
	db #af,#7b,#31,#38,#be,#ce,#ee,#f5
	db #3e,#69,#ec,#95,#8b,#79,#7b,#f8
	db #81,#07,#b8,#12,#7f,#ef,#6b,#86
	db #b3,#42,#6d,#d1,#d9,#e3,#0c,#e8
	db #93,#78,#4f,#a4,#c1,#2c,#64,#75
	db #8f,#a7,#e3,#e1,#13,#45,#48,#00
	db #dc,#ab,#de,#71,#7a,#ff,#3e,#0c
	db #7a,#f6,#79,#0d,#4c,#8b,#72,#6e
	db #40,#89,#45,#7e,#b7,#3c,#49,#7e
	db #01,#3f,#62,#21,#26,#da,#a2,#0e
	db #09,#60,#8a,#12,#c7,#ed,#a0,#7f
	db #8f,#27,#de,#06,#3d,#cf,#a3,#e3
	db #04,#4c,#77,#33,#5f,#53,#f6,#83
	db #34,#51,#06,#da,#68,#71,#8b,#37
	db #bc,#55,#55,#71,#c5,#71,#b8,#54
	db #ad,#e2,#c1,#22,#14,#69,#ec,#55
	db #1d,#f4,#6f,#7f,#9e,#67,#e0,#f1
	db #e5,#24,#ee,#c1,#e3,#9f,#ca,#9e
	db #2d,#25,#0c,#f6,#e3,#dd,#52,#18
	db #4c,#45,#5d,#03,#c0,#94,#01,#37
	db #16,#30,#53,#34,#8c,#5e,#74,#07
	db #50,#51,#f6,#61,#ef,#79,#a9,#1f
	db #72,#b4,#ae,#87,#54,#52,#96,#8a
	db #59,#fa,#80,#a7,#af,#74,#e3,#7c
	db #35,#00,#3e,#78,#60,#2a,#68,#2c
	db #ab,#22,#83,#1b,#03,#46,#28,#ea
	db #3a,#d8,#3d,#ff
;
.game_name
	db "Smash TV",0
.game_year
	db "1991",0
.game_publisher
	db "Ocean Software",0
.music_author
	db "Tiny Williams",0
.music_comment
	db "SOUND IMAGES (c)1991",0

	read "music_end_v1_0.asm"
